drop proc dbo.Reporte107
go

CREATE PROCEDURE dbo.Reporte107
(
  @cabezero Varchar(8000),
  @Resul    Varchar(8000)  OutPut,
  @DataSet  nText,
  @Validar  Int
)

AS
BEGIN
  Set NoCount On
   --------------------------
  --Reporte Entradas de productos
  --------------------------

  --Variables de Trabajo
  Declare @Registro  Int
  Declare @Valor1    VarChar(8000)
  Declare @Valor2    VarChar(8000)
  Declare @Valor3    VarChar(8000)
  Declare @Desc1     VarChar(8000)
  Declare @Sql       Varchar(8000)
  --Asignar Valores
  Select @Desc1  = ""
  Select @Resul  = ""

  --Obtener los Parametros
  Exec Emulador_SepararCadena 'V1', @Cabezero, '|', @Valor1 Output --N
  Exec Emulador_SepararCadena 'V2', @Cabezero, '|', @Valor2 Output --C
  Exec Emulador_SepararCadena 'V3', @Cabezero, '|', @Valor3 Output --C


--Select * FRom PVF..Cat_ciudades
   Select codigo = LTrim(RTrim(IsNull(a.Codigo,''))),
          Nombre = LTrim(RTrim(IsNull(a.Nombre,''))),
          Tel = LTrim(RTrim(IsNull(a.Telefono1,''))),
          Mail = LTrim(RTrim(IsNull(a.Email,''))),
          Fax = LTrim(RTrim(IsNull(a.Fax,'')))
   From PVF..Cat_Proveedores a (NoLock)
   Left Join Pvf..Cat_EstadosdelaRepublica b (NoLock) On b.IdEstado = a.IdEstado
   Left Join PVF..Cat_Ciudades c (NoLock) On c.IdCiudad = a.IdCiudad And b.IdEstado = c.IdEstado
   Where a.IdEstado = @Valor1 And a.IdCiudad = @Valor2



	 Select @Registro = @@RowCount
  

	-- Enviar Resultado
  If @Registro = 0
   Begin
      If @Validar = 0
         Select @Resul = '2R=ERROR|2M=No hay datos en el reporte|'
      If @Validar = 1
         Select @Resul = '2R=ERROR|2M=No hay datos en el reporte|'
   End
  Else
    Begin
	  If @Validar = 0
	     Select @Resul='2R=OK|'
	 If @Validar = 1 
		Select @Resul='2R=OK|'
    End

  Set NoCount OFF
END



